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TITLE TSTSDIMACROS = MACRO DEFINITIONS FOR DTS/DTR 
IDENT ‘V04-000' 


MARABARASAALAALALALALEAALA SALAS ALS AAAS ASSES ESE SERS AREA AAAS A SELES ERAS SAA E SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


*?* 
** ® 
-* * 
-* ® 
:* . 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED  * 
j* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
$s INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTUARE OR “ANY. OTHER 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. * 
** ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
is CORPORATION. ® 
- ® 
-@ ® 
-« ® 
-@ ® 
*@ & 
-* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARRARAAAAALALALALAAAALELELALESASALE SALAS EASA REESE ESA ARERR ARSE ERR RASA AS SS 


FACILITY: DTS/DTR DECNET TEST PACKAGE 

ABSTRACT: MACRO DEFINITIONS USED BY DTS/DTR MODULES. 

ENVIRONMENT: DTS/DTR RUN IN USER MODE AND REQUIRE NETWORK PRIVILEGE. 
AUTHOR: JAMES A. KRYCKA, CREATION DATE: 11-AUG-77 
MODIFICATIONS: 


Be Se Se Ge Fe Ge Be Ge Oe Ge Oe we 
+ 


TST$ 
V04- 
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~SBTTL CODE GENERATION MACROS 


He ag 
; QBLOCK GENERATES A QUADWORD DESCRIPTOR BLOCK FOLLOWED BY THE 
; CHARACTER STRING AND/OR ALLOCATED SPACE. 


.MACRO QBLOCK TEXT 
LONG LABEL @=L LABEL { 
ONG LABEL 

F NB BUFADR 


SPACES 0,BUFADR,?LABEL1, ?LABEL2 


BUF ADR== 


LABEL1: 
IR STR, <TEXT> 
“ASCII \STR\ 

ENDR 

-IF NE SPACE 
-BLKB SPACE 


LABEL2: 
-ENDM QBLOCK 


-MACRO SSB POS ,BASE, ?DISPL 
BBSS POS ,BASE ,DISPL 


-ENDM SSB 


DISPL: 


204 
: CSB CLEARS A SINGLE BIT IN A FIELD. 


.MACRO CSB POS ,BASE, ?DISPL 
CC POS, BASE ,DISPL 


| 
| 
| 
| 
ees | 
; SSB SETS A SINGLE BIT IN A FIELD. | 
| 
| 
-ENDM = CSB | 

| 


LS A BUFFER WITH A SPECIFIED ee a ON COMPLETION 
THE OF ONE BYTE BEYOND THE F 

MACRO USES THE MOVCS INSTRUCTION WHICH DESTROYES @ R93: 

IS TO ZERO 512 BYTES (1 PAGE) AT THE SPECIFIED ADDRESS. 


MACRO FILLBUF DST=,S1ZE=#512, CHAR=#*X00 | 
mOVCS me SIZE ,DST | 
-ENDM = FILLBUF | 
3¢ + 
: CHECKS S BRANCHES TO A SUBROUTINE THAT CHECKS THE STATUS CODE IN RO 

OLLODING A CALL TO A SYSTEM SERVICE. 
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— CHECK SS 
TSTSCRECK_SS 
ENDM CHECK_SS 


; : CHecK RMS BRANCHES ° A SUBROUTINE THAT CHECKS THE COMPLETION CODE IN RO 
; _FOLLOGING A CALL TO RMS. 


' 


MACRO CHECK RMS 
BSBW TSTSCRECK_RMS 
~-ENDM = CHECK_RMS~ 


CHECK 10SB BRANCHES TO A SUBROUTINE THAT CHECKS THE STATUS CODE OF THE 
; : Spectr iS 1/0 STATUS BLOCK FOLLOWING A CALL TO THE QI0 SYSTEM SERVICE. 


.MACRO CHECK_IOSB ADDRESS 
MOVAQ ADDRES 

BSBW ISTSCHECK 10SB 

.ENDM = CHECK 


ig 4 
; SCASEB, SCASEW, AND SCASEL GENERATE A CASEB. CASEW, CASEL_ INSTRUCTION, 
: RESP ECTIVELY, sof QLLOWED BY THE CASE DISPLACEMENT TABLE. THE PARAMETERS 


BCL CTORs THE ScLectoR rae 


BASE THE BAS 

(THE LIMIT OPERAND IS CALCULATED FROM THE # OF ENTRIES IN DISPL) 
ISPL THE CASE DISPLACEMENT LIST 

; NOTE THAT THE MACRO DEFINITIONS PLACE BASE AFTER SELECTOR AND DISPL 

; ato CAN BE OMITTED WHEN KEYWORDS ARE NOT USED IN THE MACRO 


-MACRO $CASEB,SELECTOR,DISPL,BASE=#0 
7 171) ual eats etn 


-MACRO S$CASEW,SELECTOR,DISPL,BASE=#0 
SCASE SELEC LECTOR, <DISPL>, BASE, TYPE=W 


-MACRO $CASEL,SELECTOR,DISPL,BASE=#0 
SCASE SeLEC LECTOR, <DISPL>, BASE. TYPE=L 


3 $c CASE IS A LEVEL 2 MACRO USED BY SCASEB, SCASEW, AND SCASEL. 
; SCASE GENERATES A CASECB/W/L INSTRUCTION o LOWED BY THE CASE 
; DISPLACEMENT TABLE. PARAMETERS F CRO ARE: 

; YPE TATYPE a 8. uw FOR 


; SELECTOR= THE SELECTOR OPERAN 
: BASE = THE BASE OPERAND 


TST 
V04 


DTMACROS .MAR; 1 16-SEP-1984 17:03:54.94 Page 4 


; (THE LIMIT OPERAND IS CALCULATED FROM THE # OF ENTRIES IN DISPL) 
; DISPL = THE CASE DISPLACEMENT LIST | 
> NOTE THAT ha MACRO gh Hey PLACES PeEECT OR AND DISPL AHEAD OF BASE 
; AND TYPE SO THAT THE LATTER CAN BE OMITTED WHEN KEYWORDS ARE NOT USED 
; IN THE MACRO INVOCATION. 


sMACRO  $CASE,SELECTOR,DISPL ,BASE=#0,TYPE=B, ?TABLE | 
SSCOUNT=0 oi | 


$$COUNT=SSCOUNT 
.ENDR 
cIF | 
RR 
pat! | 
CASE ' TYPE SELECTOR, BASE ,#<S$$COUNT-1> | 
.IRP —s_ EP, <DISPL> | 


EQ,$$COUNT 
; #eeee CASE DISPLACEMENT LIST IS NULL *teee ; 


TABLE: 
-WORD EP=-TABLE 


-ENDR 
-ENDM = S$CASE 
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-SBTTL SYMBOL DEFINITION MACROS 


"EFNDEF eer ee =, USE OF EVENT pLaes BY a Aa 

ry E: ros OF THE FLAG VALUES SERVE A DUAL PURPOSE; THEY ARE ALSO USED 
FUNCTION/INDEX CODES THAT ARE MAPPED INTO THE APPROPRIATE Q10 REQUEST 

;_ SYSTER SERVICE CALLS. 


-MACRO yy 3 GBL 


SDEFINI EFN,GBL 

SEQULST EFN'K ,GBL, : EFN CAND FUNCTION/IND DEX CODE] FOR 
<RERD “MA t26s—, : READ ASSOCIATED MAILBOX 

CONN" INIT. 1>= : NSP CONNECT INITIATE 

<CONN“ACCE,1>= : NSP CONNECT ACCEPT (CONFIRM) 
<CONN~REJ ion : NSP CONNECT REJECT 
<DISC“SYNC,3>= : NSP SYNCHRONOUS DISCONNECT 
<DISC“ABRT .4>- + NSP DISCONNECT ABORT 
<XMIT“DATA,5>= : NSP TRANSMIT DATA MESSAGE 
<XMIT~INTE .6>= : NSP TRANSMIT INTERRUPT MESSAGE 
<RECVEDATA, *?>- : NSP RECEIVE DATA MESSAGE 
<SIGNAL,9>= : SIGNALLING AN EVENT FROM AN AST 


> 
SDEFEND EFN,GBL 
-ENDM = EFNDEF 


p++ 
: FLGDEF DEFINES OFFSETS AND MASKS FOR COMMAND PARSE STATUS FLAGS. 


-MACRO FLGDEF GBL 
SDEFINI FLG,GBL 


_VIELD FLG.0,< ; : 
<PARSERROR, .M>= : PARSE ERROR DETECTED 
<MULTILINE. .M>= ; COMMAND LINE IS CONTINUED 
<PARAMETER, .M>= ; COMMAND bARAMETER F OUND 
; <DELIMITER, .M>=- ; COMMAND DELIMITER FOUND 
SDEFEND FLG,GBL 
.ENDM = FLGDEF 


a 
> CMDDEF DEFINES COMMAND LANGUAGE SYMBOLS. 
.MACRO CMDDEF GBL 
SDEFINI CMD,GBL 
> DEFINE COMMAND PARAMETER VALUES (TST$GB_TEST). 
’ SEQULST VAL K 
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<TEST_MISC,4>- 


: DEFINE /CNOJPRINT QUALIFIER V 


SEQULST VAL_K_.GB girs 
<PRIN_ 
<PRINTYES, 128>- 


DEFINE /TYPE QUALIFIER VALUES 
SEQULST VAL K. GBL. 
TYPE~ =REJE “63° 


<TYPE_ABRT,1>= 
: <TYPE_NAME ,0>= 


DEFINE /CNOJRETURN QUALIFIER 
SEQULST VAL JK “Re bse' 
<RETU_ “STAN, 2>- 


‘ <RETU_RECE ,4>- 
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; MISCELLANEOUS TEST 
ALUES (TSTS$GB_PRINT). 

; FUNCTION MODIFIER CODE: 

: PRINT (BIT? = 1) 


(TSTSGB_TYPE). 


mmnmmna 
QOVle— 
PR ad os 
os 
zo 
oO 
oO 
z 
es | 
— 
zDD 
= 
~~ 


SEQU ome AND PATTERN CHECK 
O MESSAGE 

types ae peepee 
DISCONNECT ABORT 

INVALID NODENAME 


Be Se Oe Se Se Se Se Be eee 
MOAMMOE 
Omrne- 
2 

Rm 
o 
m 


VALUES (TSTSGB_RETURN). 


: SUBFUNCTION — CODE : 
: NORETURN_USERDAT 

; RETURN STANDARD USERDATA 
; RETURN RECEIVED USERDATA 


DEFINE /CNOJFLOW QUALIFIER VALUES (TSTS$GB_FLOW). 


SEQULST VAL_K_GBL...<- 
<FLOW"NO,0>- 
<FLOW? “SEG, 1>- 
<FLOW MESS, 2>- 
DEFINE /CNOJSTATISTICS QUALIF 
SEQULST VAL K. -GBL.  «< 
STAT“AO, 052 


; FLOW CONTROL VALUE: 
; NOFLOW CONTROL 

; SEGMENT FLOW CONTROL 
3 MESSAGE FLOW CONTROL 


IER VALUES (TST$GB_STAT). 
; SrAteST ice VALUE : 
NOST 


: ATISTICS 
: Stat “ves. 1>- : STATISTICS 
DEFINE /CNOJBACK QUALIFIER VALUES (TST$GB_BACK). 
DEFINE /ENOJDISPLAY QUALIFIER VALUES (TSTSGB DISPLAY). 
DEFINE /CNOJNAK QUALIFIER VALUES (TSTSGB_NAKD. 
EACH OF THESE ALSO TAKE EXPLICIT NUMERIC” VALUES. 
SEQULST VAL K_.GBL...<- : 
K"NO, 3° t NO BACK PRESSURE CONTROL 
<DISP NO > NO DISPLAY 
<NAK_RO, ~ : NO NAK CONTROL 
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> 3 
; DEFINE DEFAULT QUALIFIER VALUES. 


SEQULST DFT_K_,GBL, ; DEFAULT QUALIFIER VALUE FOR: 
<BACK; VAL_K BAC NO ; BACK PRESSURE CONTROL 
<DISPLAY,VAC_K DISP_NO>='; DISPLAY SIZE IN BYTES 
<FLOW, FLOw = ; FLOW CONTROL 
<NAK , VAI RAK_NO>- 3 NAK CONTROL 
<PRINT VAL k PRIN_NO>= ; PRINT 
<RETURN_CO;VAL_K RETU_NO>= ; RETURN USERDATA (CONNECT) 
<RETURN_DI.VAL-K-RETU_NO>= ; RETURN USERDATA (DISCONNECT) 
<RQUEUE ~DA, 1>= ; fr QUEUE (DATA) 
<RQUEUE “IN, 1>= ; DTR QUEUE (INTERRUPT) 
<SIZE_DK, 128>- : MESSAGE SIZE IN BYTES (DATA) 

: <SIZE—IN,16>= : MESSAGE SIZE IN BYTES (INTERRUPT) 

SEQULST D <- : DEFAULT QUALIFIER VALUE F 

OE PEED. $b b6660>- : LINE SPEED IN BAUD 
<$Q QUEUE. _DA, 1>= : DTS QUEUE (DATA) 
<SQUEUE IN, 1>= : DTS QUEUE (INTERRUPT) 
<STAT, UNAL K STAT_YES>= ; STATISTICS 

<TIME_DA,030>- ; TIME IN SECONDS (DA 
<TIME—IN,030>- TIME IN SECONDS (UNTERRUPT) 
<TYPE~CO,VAL_K_TYPE _ACCES= ; TYPE (CONNECT) 
<TYPE~DA,VAL_K-TYPE-SINK>= ; TYPE (DATA) 
<TYPE-D1,VAL_K-TYPE-ABRT>= ; TYPE (DISCONNECT) 
<TYPE~IN.VAL_K-TYPE-SINK>= ; TYPE (INTERRUPT) 
<TYPE-MI,VAL-K-TYPE_NAME>= ; TYPE (MISCELLANEOUS) 


> ; 


DEFINE MAXIMUM QUALIFIER VALUES FOR THOSE QUALIFIERS THAT ACCEPT NUMERIC 
QUALIFIER VALUES. 


SEQULST MAX_K_ GBL + «<> : MAXIMUM QUALIFIER VALUE FOR: 
<BATK7128 : BACK PRESSURE CONTROL 
<DISPLAY, 38>= : DISPLAY SIZE IN OB TES 
<NAK, 12 > NAK CONTROL 
<RQUEUE_DA,8>- : DTR QUEUE (DATA) 
<RQUEUE~ IN. 8>=- > DTR QUEUE (INTERRUPT) 
<SIZE_DA,4096>- : MESSAGE SIZE IN BYTES (DATA) 
<SIZE~ IN. 16>= > MESSAGE SIZE IN BYTES (INTERRUPT) 
<SPEEB, 1000000>- : LINE SPEED IN BAUD 
<SQuEUE DA. >- : DTS QUEUE (DATA) 

SQUEUE~ 1 : DTS QUEUE (INTERRUPT) 
<TIME ye 3500 : TIME IN SECONDS (DATA) 
<TIME-IN, : TIME IN SECONDS (INTERRUPT) 


> 
SDEFEND C 
.ENDM ERDBEF- 


: i VLDDEF ise, VALID AND MASKS FOR VALID (PERMITTED) QUALIFIER FLAGS 
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»MACRO 
$DEFINI 
-VIELD 


> 
SDEFEND 
ENDM 


Mr GBL 
vib D:0.<— 

<0 1 <BACK. .H> ° “>= 
<FLOW ~ 
<HOURS; 


<RINUTES" -R>- 


,M>- 
Martens 
a 
<NOPRIT  A>= 
<NORETURN, ,M>= 


<SHeEs: Toa 
<SQUEUE, .M>- 
<STAT, ,M>- 
<TYPE. ° *M>=- 


VLD ,GBL 
VLDDEF 
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SUA. IF IER: 
DISPLAY 
FLOW 


HOURS 
een 


NODENAME 
NODISPLAY 
NOF LOW 


N 

NOPRINT 

NORE TURN 
Da 
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